﻿Public Class tCurso
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        lblMsg.Text = ""
        Dim Y As Date = Date.Now
        txtCursada.Text = Y.Year.ToString
    End Sub

    Protected Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        lblmsg.text=""
        If Not Page.IsValid Then
            lblMsg.Text = "Ingrese los datos correctamente"
            Return
        End If

        If Not IsNumeric(txtAno.Text) Then
            lblMsg.Text = "El año tiene que ser un numero"
            txtAno.Focus()
            Return
        End If

        Dim Anio As Integer
        If Not Integer.TryParse(txtAno.Text, Anio) Then
            lblMsg.Text = "Ingreso del año incorrecto"
            txtAno.Focus()
            Return
        End If

        If Anio > 10 Or Anio < 1 Then
            lblMsg.Text = "El año no es correcto"
            txtAno.Focus()
            Return
        End If

        Dim Comision As Integer
        If Not Integer.TryParse(txtComision.Text, Comision) Then
            lblMsg.Text = "La comision tiene que ser un numero"
            txtComision.Focus()
            Return
        End If

        If Comision > 50 Or Comision < 1 Then
            lblMsg.Text = "Valor incorrecto de comision"
            txtComision.Focus()
            Return
        End If

        Dim Cursada As Integer
        If Not Integer.TryParse(txtCursada.Text, Cursada) Then
            lblMsg.Text = "Valor de cursada invalido"
            txtCursada.Focus()
            Return
        End If

        If Cursada < 1999 Or Cursada > 2099 Then
            lblMsg.Text = "Valor de cursada invalido."
            txtCursada.Focus()
            Return
        End If

        Try
            Dim tCursos As New LocalDataTableAdapters.CursosTableAdapter
            Dim rCursos As New LocalData.CursosDataTable
            tCursos.Fill(rCursos)

            Dim sFormato As String = "(anio = {0}) and (Comision = {1}) and (Turno = '{2}') and (Modalidad = '{3}') and (Cursada = {4})"
            Dim sResult As String = String.Format(sFormato, Anio, Comision, txtTurno.Text, txtModalidad.Text, Cursada)
            Dim r() As DataRow = rCursos.Select(sResult)

            If r.Length > 0 Then
                lblMsg.Text = "Curso repetido"
                Return
            End If

            rCursos.AddCursosRow(Anio, Comision, txtTurno.Text, txtModalidad.Text, Cursada)

            tCursos.Update(rCursos)
        Catch ex As Exception
            lblMsg.Text = "Error al guardar el dato: " & ex.Message
            Return
        End Try

        Response.Redirect("repCursos.aspx", True)
    End Sub
End Class